home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / hc 1520 farbig (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  111 lines
  1. 10 REM MASCHINENSPRACHEHARDCOPYROUTINE
  2. 20 REM            1520/C64
  3. 30 REM         (C)  13.6.1984
  4. 40 REM               BEI
  5. 50 REM         KLAUS SCHNEIDER
  6. 60 REM          BAHNHOFSTR. 5
  7. 70 REM           493 DETMOLD
  8. 80 REM
  9. 90 REM *********** EINGABE ************
  10. 100 REM
  11. 110 PRINT CHR$(147)
  12. 120 PRINT " SOLL DIE KOPIE MEHRFARBIG WERDEN (J/N)"
  13. 130 GET A$ : IF A$="" THEN 130
  14. 140 IFA$="J"THENPOKE1000,1:PRINT" JA":G=3
  15. 150 IFA$="N"THENPOKE1000,0:PRINT" NEIN":G=1
  16. 160 FORI=1TOG
  17. 170 PRINT" BITTE GEBEN SIE DIE";I;"[157]. FARBE (0-3) AN!"
  18. 180 GET B$ : IF B$<"0" OR B$>"3" THEN 180
  19. 190 POKE1000+I,VAL(B$):PRINT" "+B$
  20. 200 PRINT
  21. 210 NEXTI
  22. 220 REM
  23. 230 REM ****** TEST AUF ROUTINE *******
  24. 240 REM
  25. 250 FOR I=0 TO 10
  26. 260 READ A
  27. 270 B=PEEK(24576+I)
  28. 280 IF B<>A THEN 310
  29. 290 NEXT I
  30. 300 GOTO 440
  31. 310 RESTORE
  32. 320 REM
  33. 330 REM ****** POKEN DER ROUTINE ******
  34. 340 REM
  35. 350 PRINT CHR$(147)
  36. 360 PRINT TAB(13) "BITTE WARTEN"
  37. 370 FOR I=0 TO 825
  38. 380 READ A
  39. 390 C=C+A
  40. 400 POKE 24576+I,A
  41. 410 NEXT I
  42. 420 IF C<>87544 THEN PRINT " FEHLERHAFTE DATEN !!!" : END
  43. 440 REM
  44. 450 REM ***** EINGABE DER ADRESSE *****
  45. 460 REM
  46. 470 PRINT CHR$(147)
  47. 480 PRINT " BITTE GEBEN SIE DIE STARTADRESSE DER "
  48. 490 PRINT
  49. 500 INPUT " GRAFIK EIN! ";A
  50. 510 B=INT(A/256)
  51. 520 POKE 24647,B : POKE 24640,A-B*256
  52. 530 REM
  53. 540 REM ***** STARTEN DER ROUTINE *****
  54. 550 REM
  55. 560 SYS 6*4096
  56. 570 PRINT CHR$(147)
  57. 580 REM
  58. 590 REM ****** GGF. WIEDERHOLUNG ******
  59. 600 REM
  60. 610 PRINT " WOLLEN SIE NOCH EINE KOPIE (J/N) ?"
  61. 620 GET A$ : IF A$="" THEN 620
  62. 630 IF A$<>"J" THEN END
  63. 640 PRINT
  64. 650 PRINT " MIT DENSELBEN PARAMETERN (J/N) ?"
  65. 660 GET A$ : IF A$="" THEN 660
  66. 670 IF A$<>"J" THEN RUN
  67. 680 GOTO 560
  68. 690 REM
  69. 700 REM ********** DIE DATEN **********
  70. 710 REM
  71. 720 DATA 162,0,142,14,220,120,134,183,232,134,184,134,185,162,6,134,186,32,192
  72. 730 DATA 255,162,2,134,184,134,185,162,0,134,183,162,6,134,186,32,192,255,162
  73. 740 DATA 0,142,64,3,142,65,3,142,67,3,142,70,3,142,71,3,142,72,3,142,73,3,142
  74. 750 DATA 76,3,162,0,134,247,142,148,97,162,224,134,248,142,152,97,162,1,142
  75. 760 DATA 75,3,162,208,142,163,96,142,215,96,162,2,32,201,255,173,233,3,24,105
  76. 770 DATA 48,32,210,255,169,13,32,210,255,32,204,255,169,52,133,1,160,0,177,247
  77. 780 DATA 162,55,134,1,72,24,165,247,105,8,144,2,230,248,133,247,173,232,3,240
  78. 790 DATA 56,104,162,0,142,74,3,10,46,74,3,10,46,74,3,72,170,174,74,3,236,75
  79. 800 DATA 3,208,3,32,0,98,238,73,3,238,65,3,208,3,238,64,3,238,65,3,208,3,238
  80. 810 DATA 64,3,173,73,3,201,4,208,203,76,238,96,104,162,0,142,74,3,24,10,46,74
  81. 820 DATA 3,72,173,74,3,205,75,3,208,3,32,0,98,238,73,3,238,65,3,208,3,238,64
  82. 830 DATA 3,173,73,3,201,8,208,215,162,0,142,73,3,104,238,72,3,173,72,3,201,40
  83. 840 DATA 176,3,76,112,96,173,76,3,240,3,32,0,98,238,67,3,173,78,3,141,65,3,173
  84. 850 DATA 77,3,141,64,3,32,0,98,162,0,142,72,3,142,64,3,142,65,3,142,76,3,169
  85. 860 DATA 208,141,163,96,141,215,96,198,248,165,247,56,233,63,176,2,198,248,133
  86. 870 DATA 247,238,71,3,173,71,3,201,8,240,3,76,112,96,162,0,142,71,3,230,248
  87. 880 DATA 165,247,24,105,56,144,2,230,248,133,247,238,70,3,173,70,3,201,25,240
  88. 890 DATA 3,76,112,96,32,204,255,173,232,3,208,3,76,246,97,238,75,3,173,75,3
  89. 900 DATA 201,4,240,119,162,0,142,70,3,142,67,3,142,64,3,142,65,3,142,77,3,142
  90. 910 DATA 78,3,162,0,134,247,162,224,134,248,162,1,32,201,255,162,0,138,72,189
  91. 920 DATA 231,97,32,210,255,104,170,232,224,9,208,241,162,1,32,201,255,162,0
  92. 930 DATA 138,72,189,240,97,32,210,255,104,170,232,224,6,208,241,162,2,32,201
  93. 940 DATA 255,173,75,3,56,233,1,168,185,233,3,24,105,48,32,210,255,169,13,32
  94. 950 DATA 210,255,32,204,255,76,112,96,77,44,48,44,45,50,48,49,13,77,44,48,44
  95. 960 DATA 48,13,32,47,243,169,1,141,14,220,88,96,173,64,3,72,173,65,3,72,173
  96. 970 DATA 67,3,72,162,0,142,67,3,142,68,3,142,69,3,201,100,144,8,233,100,238
  97. 980 DATA 67,3,76,23,98,201,10,144,8,233,10,238,68,3,76,35,98,201,1,144,8,233
  98. 990 DATA 1,238,69,3,76,47,98,173,65,3,174,64,3,240,17,162,2,142,64,3,162,5,142
  99. 1000 DATA 65,3,232,142,66,3,76,95,98,162,0,142,64,3,142,65,3,142,66,3,201,100
  100. 1010 DATA 144,8,238,64,3,233,100,76,95,98,201,10,144,8,238,65,3,233,10,76,107
  101. 1020 DATA 98,201,1,144,8,238,66,3,233,1,76,119,98,173,65,3,24,105,8,141,65,3
  102. 1030 DATA 173,66,3,201,10,144,8,233,10,141,66,3,238,65,3,173,65,3,201,10,144
  103. 1040 DATA 11,233,10,141,65,3,238,64,3,76,155,98,162,1,32,201,255,173,76,3,240
  104. 1050 DATA 8,169,68,32,210,255,76,196,98,169,77,32,210,255,169,44,32,210,255,173
  105. 1060 DATA 64,3,24,105,48,32,210,255,173,65,3,24,105,48,32,210,255,173,66,3,24
  106. 1070 DATA 105,48,32,210,255,169,44,32,210,255,169,45,32,210,255,173,67,3,24,105
  107. 1080 DATA 48,32,210,255,173,68,3,24,105,48,32,210,255,173,69,3,24,105,48,32,210
  108. 1090 DATA 255,169,13,32,210,255,104,141,67,3,104,141,65,3,104,141,64,3,173,163
  109. 1100 DATA 96,73,32,141,163,96,141,215,96,173,76,3,73,1,141,76,3,173,65,3,141
  110. 1110 DATA 78,3,173,64,3,141,77,3,96
  111.